﻿#NoEnv
#SingleInstance force
SendMode, Input
SetWorkingDir %A_ScriptDir%
FileEncoding , UTF-8-RAW
CoordMode, Mouse, Screen
CoordMode, Menu, Window
CoordMode, Caret, Screen
CoordMode, ToolTip, Screen

Gui, Color, FEFEFE, FEFEFE
Gui, font, s15 , SimHei
gui, Add, Text, x15 , PPT编号`:
Gui, Add, Edit, xp+100 yp vppt h22 w200
gui, Add, Text, x15 yp+30 , PPT页数`:
Gui, Add, Edit, xp+100 yp h22 vNumber w200 Number
gui, Add, Text, x15 yp+30 , 通用链接`:
Gui, Add, Edit, xp+100 yp h22 v通用链接 w200



说明=
(
说明:
PPT编号建议填入课件的编号：如3.1.1
PPT页数是课件的页数，关系到会下载几张图片，务必准确
通用链接见其他说明
点击下载后 图片将下载到桌面一个新文件夹中：如3.1.1ppt文件夹
下载需要时间请耐心等待结束
)

Gui, font, s12
gui, Add, Button, g下载 x200 yp+30, 下载 
gui, Add, Text, x15 yp+30 , %说明%

gui, Show, , 课件图片下载

return
#include <DownloadFile>


GuiClose:
ExitApp
return

下载:
/*
Number:=36
ppt=3.4.2

通用链接:="https://s3.ananas.chaoxing.com/doc/fe/8f/5d/4716e9f584e0b23342d8845bccb80694/thumb/"
*/
gui, Submit, NoHide
path:=A_ScriptDir "\" ppt "ppt"


for n, v in {PPT编号:ppt, PPT页数:Number, 通用链接:通用链接}
{
	if not StrLen(v)>0
	{
		Tip(n " 不可为空")
		return
	}
}
通用链接:=SubStr(通用链接, 1, InStr(通用链接, "/thumb")+6)

FileCreateDir, % path

Names:=[]
loop % Number
{
	Link:=通用链接 A_Index ".png"
	outpath:=path "\" ppt "ppt_" A_Index ".png"
	ToolTip, 图片下载进度`: %A_Index%\%Number%
	DownloadFile(Link, outpath, True, false)
	Names.Push(outpath)
}
ToolTip

a_yh=`"
cmd="%path%.pdf"
for _, Name in Names
	cmd.= A_Space a_yh Name a_yh


MsgBox 0x40044, 结束！, 已下载%Number%张图片`,是否打开所在文件夹`:%path%`n(打开文件夹可以检查是否成功下载了所有图片)
IfMsgBox Yes, {
	run, % path
}

MsgBox 0x40044, 是否继续
, 是否继续将下载后的图片组合为pdf`?`npdf路径为%path%.pdf
IfMsgBox Yes, {
	RunWait, ImageToPDForXPS.exe %cmd%
	MsgBox 0x40040, 结束, 图片组合结束！
}

return


!q::
send ^s
Reload
return